home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / pas_all.zip / TI312.ASC < prev    next >
Text File  |  1992-08-12  |  2KB  |  133 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9.   PRODUCT : TURBO PASCAL DATABASE TOOLBOX              NUMBER : 312
  10.   VERSION : 1.01x
  11.        OS : DOS
  12.      DATE : June 27, 1986                                PAGE : 1/2
  13.     TITLE : UPDATE FROM VERSION 1.01x to 1.21x
  14.  
  15.  
  16.  
  17.  
  18.   The following modifications update the Turbo Database Toolbox
  19.   from version 1.01x to 1.21x. Note that all modifications are made
  20.   to the file ACCESS.BOX.
  21.  
  22.   1.   In the procedure TaIOcheck in the file ACCESS.BOX make the
  23.        following change:
  24.  
  25.     Change from:
  26.           .
  27.           .
  28.         I := 0;
  29.         while Ord(TaName[I]) <> 0 do
  30.         begin
  31.           .
  32.           .
  33.  
  34.     Change to:
  35.           .
  36.           .
  37.         I := 1;   { Ver. 1.21x modification }
  38.         while Ord(TaName[I]) <> 0 do
  39.         begin
  40.           .
  41.           .
  42.  
  43.   2.   In the procedure GetRec in the file ACCESS.BOX make  the
  44.        following change:
  45.  
  46.     Change from:
  47.           .
  48.           .
  49.       Seek(DatF.F,R);
  50.       BlockRead(DatF.F,Buffer,1);
  51.           .
  52.           .
  53.  
  54.      Change to:
  55.           .
  56.           .
  57.       Seek(DatF.F,R);
  58.       IOstatus := IOresult;          { Ver. 1.21x addition }
  59.       TaIOcheck(DatF,R);             { Ver. 1.21x addition }
  60.       BlockRead(DatF.F,Buffer,1);
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.   PRODUCT : TURBO PASCAL DATABASE TOOLBOX              NUMBER : 312
  76.   VERSION : 1.01x
  77.        OS : DOS
  78.      DATE : June 27, 1986                                PAGE : 2/2
  79.     TITLE : UPDATE FROM VERSION 1.01x to 1.21x
  80.  
  81.  
  82.  
  83.  
  84.           .
  85.           .
  86.  
  87.   3.   In the procedure PutRec in the file ACCESS.BOX make  the
  88.        following change:
  89.  
  90.     Change from:
  91.           .
  92.           .
  93.       Seek(DatF.F,R);
  94.       BlockWrite(DatF.F,Buffer,1);
  95.           .
  96.           .
  97.  
  98.      Change to:
  99.           .
  100.           .
  101.       Seek(DatF.F,R);
  102.       IOstatus := IOresult;          { Ver. 1.21x addition }
  103.       TaIOcheck(DatF,R);             { Ver. 1.21x addition }
  104.       BlockWrite(DatF.F,Buffer,1);
  105.           .
  106.           .
  107.  
  108.   DISCLAIMER: You have the right to use this technical information
  109.   subject to the terms of the No-Nonsense License Statement that
  110.   you received with the Borland product to which this information
  111.   pertains.
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.